home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3dvb / ctl3d.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-06  |  1.2 KB  |  34 lines
  1. Option Explicit
  2. '**************************************************
  3. '*   NOTE: CTL3DV2.DLL must be installed in your  *
  4. '*         Windows\System directory, or an error  *
  5. '*         msgbox will be generated at run time,  *
  6. '*         and the dll won't work!                *
  7. '**************************************************
  8.  
  9.  
  10. ' Functions for CTL3DV2.DLL:
  11. Declare Function GetWindowWord% Lib "User" (ByVal hWnd%, ByVal nIndex%)
  12. Declare Function Ctl3dRegister% Lib "CTL3DV2.DLL" (ByVal hInstance%)
  13. Declare Function Ctl3dAutoSubClass% Lib "CTL3DV2.DLL" (ByVal hInstance%)
  14. Declare Function Ctl3dUnregister% Lib "CTL3DV2.DLL" (ByVal hInstance%)
  15. Global Const GWW_HINSTANCE = (-6)
  16. ' use Load_CTL3D in the load event of the startup.frm and
  17. ' Unload_CTL3D in the unload event of the main.frm
  18.  
  19. Sub Load_CTL3D (frm As Form)
  20. ' registers the dll
  21.   Dim inst%, ret
  22.   inst% = GetWindowWord(frm.hWnd, GWW_HINSTANCE)
  23.   ret = Ctl3dRegister(inst%)
  24.   ret = Ctl3dAutoSubClass(inst%)
  25. End Sub
  26.  
  27. Sub Unload_CTL3D (frm As Form)
  28. ' unloads the dll, preventing GPF in USER when app quits...
  29.   Dim inst%, ret
  30.   inst% = GetWindowWord(frm.hWnd, GWW_HINSTANCE)
  31.   ret = Ctl3dUnregister(inst%)
  32. End Sub
  33.  
  34.